home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / btr515.exe / PATCH515.CMD < prev    next >
OS/2 REXX Batch file  |  1992-09-04  |  2KB  |  111 lines
  1. echo off
  2. CLS
  3. echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
  4. echo     OF THE PRODUCT YOU ARE PATCHING.   PATCHING AN ALREADY PATCHED COPY
  5. echo     MAY CAUSE UNPREDICTABLE ERRORS.
  6. echo  
  7. echo     This batch file is for patching VERSION 5.15 products ONLY
  8. echo  
  9. IF  %1! == ! GOTO PARAM
  10. IF  %1 == BTRIEVE  GOTO BTRIEVE
  11. IF  %1 == BSERVER  GOTO BSERVER
  12. IF  %1 == BCONSOLE GOTO BCONSOL
  13. IF  %1 == RTRNLM   GOTO RTRNLM
  14. IF  %1 == RTRVAP   GOTO RTRVAP
  15. ::
  16. IF  %1 == btrieve  GOTO BTRIEVE
  17. IF  %1 == bserver  GOTO BSERVER
  18. IF  %1 == bconsole GOTO BCONSOL
  19. IF  %1 == rtrnlm   GOTO RTRNLM
  20. IF  %1 == rtrvap   GOTO RTRVAP
  21. GOTO PARAM
  22. ::
  23. :BTRIEVE
  24. SET FILE515=%1.NLM
  25. SET ORG515=%1.ORG
  26. SET PAT515=BPATNLM.515
  27. GOTO PATCH
  28. ::
  29. :BSERVER
  30. SET FILE515=%1.VAP
  31. SET ORG515=%1.ORG
  32. SET PAT515=BPATVAP.515
  33. GOTO PATCH
  34. ::
  35. :BCONSOL
  36. SET FILE515=%1.NLM
  37. SET ORG515=%1.ORG
  38. SET PAT515=BPATCON.515
  39. GOTO PATCH
  40. ::
  41. :RTRNLM
  42. SET FILE515=BROUTER.NLM
  43. SET ORG515=BROUTERN.ORG
  44. SET PAT515=BPATRTRN.515
  45. GOTO PATCH
  46. ::
  47. :RTRVAP
  48. SET FILE515=BROUTER.VAP
  49. SET ORG515=BROUTERV.ORG
  50. SET PAT515=BPATRTRV.515
  51. GOTO PATCH
  52. ::
  53. :PATCH
  54. IF NOT EXIST PI.EXE GOTO NOPI
  55. IF NOT EXIST %PAT515% GOTO NOPAT
  56. IF NOT EXIST %FILE515% GOTO NOFILE
  57. IF NOT EXIST %ORG515% REN %FILE515% %ORG515%
  58. IF EXIST %FILE515% DEL %FILE515%
  59. :INPATCH
  60. echo  
  61. echo %FILE515%  ** PATCHING .............
  62. echo  
  63. COPY %ORG515% %1
  64. PI %1 %PAT515%
  65. REN %1 %FILE515%
  66. GOTO FIXDONE
  67. ::
  68. :NOPAT
  69. echo  
  70. echo CANNOT FIND %PAT515%
  71. GOTO END
  72. ::
  73. :NOPI
  74. echo  
  75. echo CANNOT FIND PI.EXE
  76. echo  
  77. echo The Novell Patch Install Utility (PI.EXE) is required to install
  78. echo the patches for this product.  Please copy PI.EXE to the directory
  79. echo you are working in............................................
  80. GOTO END
  81. ::
  82. :NOFILE
  83. IF EXIST %ORG515% GOTO INPATCH
  84. echo  
  85. echo CANNOT FIND %FILE515%
  86. GOTO END
  87. ::
  88. :PARAM
  89. echo  
  90. echo THE FORMAT IS:
  91. echo  
  92. echo PATCH515 [filename]
  93. echo  
  94. echo WHERE [filename] IS:       BTRIEVE  ........ BTRIEVE.NLM
  95. echo                            BSERVER  ........ BSERVER.VAP
  96. echo                            RTRNLM   ........ BROUTER.NLM
  97. echo                            RTRVAP   ........ BROUTER.VAP
  98. echo  
  99. echo  
  100. GOTO END
  101. ::
  102. :FIXDONE
  103. echo  
  104. echo BTRIEVE PRODUCT  ** PATCH COMPLETE **
  105. echo  
  106. ::
  107. :END
  108. SET FILE515=
  109. SET ORG515=
  110. SET PAT515=
  111.